Top 10k strings from Bridge Player 2 (1984)(CP Software)(pl).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
3 x+fo,y+tw;e$
3 w=x+(j$(o,y)>j$(ol)
3 j$(op,x)=e$(x))
3 j$(op,tw)>"
3 j$(op)>j$(ol)
3 cd=tw*(t>on
3 a$(on)=("3"
3 (j$(o,x)=e$(x)
2 y$(fo,fo):
2 y$(a,tw)="5"
2 y$(a)="100"+
2 x+tw,y+tw;e$;
2 w=y+(j$(o,3
2 v$(x,y)>j$(ol,u)
2 t>fo;f$(tw);
2 nt+d(k)<23
2 j$(q,tw)>"
2 j$(or)<e$(y)
2 j$(o,y)>j$(ol,y)
2 j$(o,y)>a$(y))+(j$(o,3
2 j$(o,y)>a$(y)
2 j$(o,x)=e$(x)
2 j$(o,w)>a$(y)
2 j$(o)>j$(ol)
2 j$(m,a(m)):
2 j$(l)=j$(l,
2 h$(tw-a)<"1"
2 a(op-n+t))
2 a(l)=a(l)-on:
2 a$(y)>e$(fo)
2 a$(x)=s$(t)
2 a$(tw)=r$(t)
2 a$(tw)=" "
2 a$(on)=("P"
2 a$(on)=("6"
2 a$(on)="R"
2 a$(on)="N"
2 a$(on)="D"
2 ,ze;l$;l$;
2 ,y+on;e$;" ";e$;
2 ,y+on;e$;" ";e$:
2 +x,(y(k,x)+6
2 )>j$(ol,y)
2 (k-tw*(k>tw)):
2 R.Wheen 1984
1 zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzxxxzzzzxxxzzzzzzzxxzzzzzzzzzzzzzxzxzzzxzzxzzzzzzxxxxzzzzzzzzzzzzxzzzzzxzzxzzzzzzxxxzzzzzzzzzzzzzxzzzzzxzzxzzzzzzxzzzzzzzzzzzzzzzxzzzzzzxxxzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzxxzzzxxxxzzzzzzzzzzzzzzzzzzzzzzxxxxzzxxxxzzzzxxzzzzzzzzxxzzzzzzzzzxzzxxxzzzzxxxxzzzzzzxxxxzzzzzzxxzzzxzzzzzzxxxxzzzzzzxxxzzzzzzxzzzzzxzzzzzzxxxxzzzzzzxzzzzzzzzxxxxzzxzzzzzzzxxxzzzzzzzxxxzzzzzxxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888
1 ze;" led. Enter ";(b$(k,
1 ze;" holding ");" ";
1 ze;" Even geduld terwijl de computer de kaarten ordent en analyseert":
1 ze;" ";(b$(k,
1 ze;" Dit is uw hand als
1 ze,tw,st,fo,on,n,h,u,gg,o$,p$,n$,q$,r$,s$,t$,u$:
1 ze,f,f,f,f,f,f,f,p$
1 ze)+("O/W"
1 z>fo)+("4"
1 z=fo*y-fo+x:
1 z=a(op-n+t):
1 z(z);z$(z):
1 z(fo*j-fo+k)=f(v):
1 z$(fo*j-fo+k)=a$:
1 y>fo))*x+10
1 y=y(k,on):
1 y=x-(x>on):
1 y=k+x-v+fo*(v
1 y;" slag";"en"
1 y,z;(e$(on)
1 y)=j$(ol,x)+j$(op,x)
1 y)+j$(op,x)
1 y(n)=y(n)-30
1 y(n)=y(n)+fo*e+8
1 y(n)=y(n)+(f+10
1 y(n)=y(n)+(40
1 y(k-on+fo*(k=on),t)=y(k-on+fo*(k=on),t)-z:
1 y(k,t)=y(k,t)-z+1.4
1 y$(x)="0003":
1 y$(u)="0003":
1 y$(t-(t>fo),fo))=
1 y$(t-(t>fo),fo)
1 y$(t-(t>fo),
1 xy=((x-y)/5
1 x-on,v;j$(m,z);
1 x-on)+g$(x+on
1 x+tw,y+on;e$;" ";e$;
1 x+on,y+on;e$;" ";e$;
1 x+fo,y+on;e$;" ";e$:
1 w=x+(j$(o,y)>a$(y)):
1 w=e(on)*e(tw)*e(3
1 w-on)+j$(l,w+on
1 w$="AAAAAAAAAA":
1 v-on)+c$(b(w),v+on
1 v$(x,y)>j$(ol)
1 v$(w,tw)=c$(b(w),v)
1 v$(fo,tw):
1 u=e(w+on):
1 tw;"Robber is uit";
1 tw;"Gelukwensen ";
1 tw;"Deler ":
1 tw;" terwijl de computer schudt,"''
1 tw*(e$(tw)="
1 tw)=j$(o,on)+j$(op,on))
1 t>fo;a$(tw):
1 t>fo)+e(b):
1 t>fo)+e(a):
1 t))+(j>12.6
1 st,ze;" Slagen ";
1 rd=(e$="2"):
1 p>tw)+s$(p):
1 p=(tv*r+10
1 p4=(e$="A"):
1 p4=(e$="4"):
1 p$=("Niem kwb"
1 op=fo*k-fo+w-(w>fo):
1 on;ze,on-aa
1 on;"Toets P voor print , R voor "'"herhaling spel, N volgend spel "
1 on;"Toets 4 als u alle 4 handen wil",
1 on;"Spel nr ";h;
1 on;"SPEL ";h;
1 on;"Oproep";
1 on;"Deler :";o$(d)'
1 on;"Bieding overnieuw ":
1 o()=o+fo-st*(o>12
1 n<fo);s$(n);
1 m$>on)+(600
1 m$>"F")+(100
1 m$="J")+(200
1 m$="F")+(400
1 m$="E")+(300
1 l=g(on)+g(3
1 l<ze);" wint met";
1 l(x),tw)="
1 l(x),on)="
1 l(t)-(t>fo):
1 k=k+i-fo*(k+i>fo):
1 k1=k1+on-fo*(k1>tw)
1 k(k),t)=y(
1 k(k),t)-z:
1 k$(v,tw)="
1 k$(b-tw,on)="D")
1 k$(b-tw,on)="D"
1 k$(b-tw)>"D"
1 k$(b)="Pas":
1 k$(b)="P":
1 j(k),t)=y(
1 j(k),t)<fo
1 j(k),t)+z+(w$(t+5
1 j$(v)=j$(v+st):
1 j$(q,on)="
1 j$(or,y)>e$(fo))))
1 j$(or,x)>e$(fo)
1 j$(op,y)>e$(fo)
1 j$(op,y)>e$(5
1 j$(op,x)>e$(3
1 j$(op,tw)<"
1 j$(op,on)=e$(3
1 j$(op)>v$(x,y)
1 j$(op)>j$(o)))
1 j$(op)>j$(o)
1 j$(op)>a$(y)
1 j$(op)<j$(ol)))
1 j$(op)<j$(ol))
1 j$(op)<e$(y)
1 j$(op)<e$(on))
1 j$(op)<a$(y))
1 j$(op)<a$(y)
1 j$(ol,y)=e$(5
1 j$(ol,u)=" "
1 j$(ol)<e$(y)
1 j$(o,y)>j$(or)):
1 j$(o,y)>j$(ol)
1 j$(o,y)<e$(3
1 j$(o,x)>j$(or,y))
1 j$(o,x)=e$(y)
1 j$(o,x)<e$(y)
1 j$(o,w)>v$(x,y)
1 j$(o,w)>j$(ol,u)
1 j$(o,on)>e$(ao-(ao>on
1 j$(o+st)=j$(o):
1 j$(o+st)=e$:
1 j$(o)>j$(or)
1 j$(o)=d$(u):
1 j$(o)<e$(or+(j$(op)>j$(o)))
1 j$(o)<e$(6
1 j$(o)<e$(3
1 j$(m,y)>d$(n,fo)
1 j$(m,w)>v$(v-x,y)
1 j$(m,w)>j$(ol-n+t,on)
1 j$(m,w)<c$(t,x)
1 j$(l,w)=a$(tw)
1 j$(l+st)=j$(l):
1 j$(k,tw)="
1 j$(k,on)="
1 j$(c,y)=e$(x)
1 i+on);o$(p+w-fo*(p+w>fo));
1 i$="A")+(s$(n)
1 h$(tw-a,on)*5
1 h$(tw-a,fo)
1 h$(tw,fo):
1 h$(tw)=h$(on):
1 h$(on)="0000":
1 h$(a+on,fo)
1 h$(a+on)>"3"
1 h$(a+on)<"1"
1 gg>on)+("N/Z kwb "
1 gg)+("Allen "
1 g(w+x);g(w+x)
1 g(fo+tw*gg))
1 g(fo+tw*gg)
1 g(c)=g(c)+p:
1 g(b)=g(b)+q
1 g(a)=g(a)+o:
1 g$=("1342"
1 g$="1234":
1 g$(w+on)=e$
1 g$(w)=g$(w+on):
1 fo;"Spel ";h'
1 fo,ze;"Contract"'r;
1 ffff)+(a$(tw)
1 f=tw)+y*100
1 f,g,i,j,l,aa,k1,rp,n$
1 f(x);v$(x,on):
1 f(w);v$(w):
1 f(v)=tw*(u>on
1 f(v);a$(on):
1 f(on);(s$(n));
1 f$=f$+"x":
1 f$=a$(on)+u$(t)+("x"
1 f$(tw)=u$(t)
1 e=f+on+d(k)+(fo
1 e=e-d(k)+j
1 e=d(k)+(13
1 e(w+on)=u:
1 e(w)=e(w+on):
1 e(w)<e(w+on)
1 e$="Z")+(15
1 e$="-----":
1 e$(y-on)=g$
1 e$(y-on)=e$(y)
1 e$(y)>e$(y-on)
1 e$(y)=e$(y-on):
1 e$(x)=t$(y):
1 e$(x)=q$(y)
1 e$(tw)>"3"
1 e$(tw)<"5"
1 e$(on)="P");
1 e$(fo)=e$(on))
1 e$(a)=g$(x)
1 de=fo)+(30
1 d=(a(ol)>ze)+(a(or)>ze):
1 d(k)=d(k)+c(k):
1 d(k)=d(k)+3
1 d$(x)=y$(x):
1 c=a+tw+tw*gg:
1 c4=(e$="4"):
1 c4=(e$="1"):
1 c,d;v$(x,tw);
1 c,d;a$(tw);
1 c+x,b;s$(x);:
1 c(k)=c(k)+
1 c$(t,y)=" ")
1 c$(b(w))=c$(b(w),
1 bi=(e$="C"):
1 b(x)=b(x)-a(
1 a=de-tw*(de>tw):
1 a=(j-g+r>7
1 a(v)=a(v+st):
1 a(or-n+t-(t>fo))
1 a(or-n+t))):
1 a(or)+a(ol)>x
1 a(op)>tw)))+"2
1 a(op)>a(or)
1 a(op)>a(ol))
1 a(op)<a(o)
1 a(op)+a(or)
1 a(ol-n+t-(t>fo))+a(or-n+t-(t>fo)))
1 a(ol-n+t-(t>fo)))
1 a(ol-n+t)))+(60
1 a(ol)+a(or)
1 a(ol)+(v=fo))
1 a(ol))+(50
1 a(o+st)=a(o):
1 a(o)=b(u):
1 a(o)=(a(op)>x)
1 a(l+st)=a(l):
1 a$=r$(t)+j$(m,w):
1 a$=r$(n)+j$(o,w):
1 a$=("4"+s$(t)
1 a$="Rdbl":
1 a$="Dble":
1 a$="6"+s$(fo-k1):
1 a$="5"+s$(fo-(j-
1 a$="3"+s$(p):
1 a$="2"+s$(t):
1 a$="2"+s$(p):
1 a$="1"+s$(p):
1 a$="1"+s$(n):
1 a$(y)>j$(o)
1 a$(y)>e$(6
1 a$(y)=e$(fo)
1 a$(y)<e$(5
1 a$(x)=f$(y)
1 a$(tw)>"1"
1 a$(tw)=u$(z):
1 a$(tw)=u$(y)
1 a$(tw)=u$(t)
1 a$(tw)=t$(w):
1 a$(tw)=t$(w)
1 a$(tw)=s$(t):
1 a$(tw)=q$(w)
1 a$(tw)=j$(l,a(l)):
1 a$(tw)=f$(tw)
1 a$(tw)=a$:
1 a$(tw)=(s$(z)
1 a$(tw)=((s$(p)
1 a$(tw)="P")+
1 a$(tw)+200
1 a$(on)=s$(u):
1 a$(on)=s$(u)
1 a$(on)=s$(n):
1 a$(on)=r$(u)
1 a$(on)=q$(x)
1 a$(on)=("4"
1 a$(on)=("1"
1 a$(on)="P"
1 a$(on)="O"
1 a$(on)="B"
1 a$(on)-on:
1 a$(on)+k$(b-on,on)+k$(b-tw,on)
1 a$(fo)="X"):
1 Toets C voor verder
1 P P P P Pas 1
1 Noord5Oost 4Zuid 5West 4
1 Iedereen past
1 Ffff)+("6"
1 Bridge2P4
1 Bridge2P3
1 Bridge2P2
1 Bridge2P1
1 AA1AAA4AAA
1 @```````BBC ' P
1 @@@@@@@@F(
1 ;k$(v,on);"N"
1 ;j$(m,a(m)):
1 ;j$(l,w);" ";:
1 ;"zonder straf ";
1 ;"zien "''
1 ;"voor spel no ";h:
1 ;"spelen. Anders toets 2 ":
1 ;"precies"
1 ;"door";o$(de);
1 ;"deelt en sorteert "''
1 ;"Variabele SANS ?",,,,,;
1 ;"U gaf West ";a(o);'" kaarten; dit is te lang."'''" Enter gehele hand opnieuw":
1 ;"Sterke SANS (15-17)",,,
1 ;"Slam geboden en gemaakt"
1 ;"LOADING";
1 ;"Even geduld a.u.b. ":
1 ;"Even geduld a.u.b. "''
1 ;"Enter dit spel opnieuw ":
1 ;"Bieding";
1 ;"BRIDGE PLAYER 2";
1 ;"4 - alle 4 handen zien":
1 ;"1 of 2?";
1 ;"-------"'':
1 ;"- B voor eerst bieden",:
1 ;"(honneurs gehaald)"
1 ;" met ";y;" overslag";"en"
1 ;" Zwakke SANS (12-14) ",,,
1 ;" ";j$(o,x);:
1 ;" ":
1 98765432","
1 9 953
1 8 98
1 432123456789
1 3333*(w$(t+5
1 23626322321463242554224213716223632214236334334333213499
1 0003000300030003
1 -st*(o>fo)
1 -a(ol)-a(or))*(10
1 -(t>fo);r;
1 ,ze;l$;l$:
1 ,ze;"Toets - P voor opnieuw spel ";
1 ,ze;"N/Z O/W";
1 ,ze;"A -de kaarten van alle 4 te spelen ?",,,,"B -de computer te laten spelen voor de verdediger ?",,,,,"Toets A of B"
1 ,ze;"1 dat N/Z (uw kant) altijd meer punten heeft dan O/W ?",,,"2 dat N/Z meestal (niet altijd) meer punten heeft dan O/W ?",,,"3 willekeurige delingen ?",,,;
1 ,ze;"1 - alle 4 handen te zien ?",,,"2 - alleen Noord en Zuid te zien ? ",,,,,,
1 ,ze;" U deelde ";b$(k,
1 ,ze;" ------ ";
1 ,ze;" ";g;
1 ,ze,,,,"C - te bieden en te spelen ? ",,,"D - alleen maar te spelen ? ",,,,,,,,,,,
1 ,tw;"2 - alleen Noord en Zuid ";
1 ,on;"N/Z O/W":
1 ,on;" Wenst u:-",,,,,,"A-de computer te laten delen ? ",,," of",,,,"B-uw eigen deling in te brengen?",,,,
1 ,h,h,"NOZW","Niem kwb",p$,"AKQJT","SHDCN","
1 +tw*gg))+(" O/W "+
1 +fo*(t>fo)):
1 +a+tw*gg):
1 *os-x/tw,124
1 *(y>fo)>96
1 *(u=t))*(u=t
1 *(t>fo)+g(3
1 *(t>fo))*(f-(f<fo)):
1 *(k=tw);"?"
1 *(k=tw)-10
1 *(f-tw)+(tv*y
1 *(f-tw)*(on+g(a+8
1 *(e$="1"):
1 *(de=tw)-5
1 *(de=tw)+5
1 *(de=on),13
1 *(de=fo);"
1 )>j$(or,y)
1 )>h$(tw-a,3
1 )=x+tw-fo*(x>tw):
1 )=x+on-fo*(x
1 )=j$(ol,x)+j$(op,x)
1 )=j$(o,x)+v$(x,y)+j$(op,x)
1 )=fo*k-fo+x:
1 )="X")+("x"
1 )-tw*(y=on):
1 )-tw*(k=on):
1 )-tw*(k=on),15
1 )-g(tw)-g(fo)-g(6
1 ));"s kaart ";
1 ));" ";(p);"kaarten";
1 ))+("O/W kwb "
1 ))+("2134"
1 ))+(" N/Z "+
1 ))+"1243":
1 )));"'s beurt. Enter kaart ";
1 )));" opnieuw doen ";
1 (v$(x,y)>a$(y)
1 (r+(f$(tw)>a$(tw))+(d(k)>9
1 (on+(z=t)+(j>10.4
1 (on+(j>14.4
1 (k$(b-tw)>"E"
1 (j$(or,x)=e$(fo)
1 (j$(op,y)>j$(or)
1 (j$(op,tw)>"
1 (j$(op)<j$(or)
1 (j$(op)<j$(ol,y)
1 (j$(op)<e$(t)
1 (j$(op)<a$(y)
1 (j$(ol,y)=e$(fo)
1 (j$(ol)<e$(y)
1 (j$(ol)<e$(fo)
1 (j$(o,y)>a$(y)
1 (j$(o,x)=e$(x))
1 (j$(o,w)>a$(y)
1 (j$(o,on)=e$(on)
1 (j$(o)<j$(or)
1 (j$(m)<v$(3
1 (c+tw))/fo:
1 (a=(j-g+r>7
1 (a(o)+a(op)>y+a(or)+a(ol)
1 ((v$(x,y)>j$(ol,y)
1 ((a=(j-g+r
1 ''"Toets"''" R - voor analyse spel "''" N - voor volgende spel "''" O - voor menu"
1 "gemaakt";
1 "Uw bod? ";
1 "U deelde 2 maal dezelfde kaart uit. Enter kleur opnieuw";
1 "Maximum aantal in 1 kleur is 8 kaarten.Enter kleur opnieuw";
1 "Enter declarer ";"(alleen N of Z)"
1 "Enter contract ";("(hoeft niet het zelfde te zijn ) "
1 "Enter ";(b$(k,
1 "Bridge2P4"
1 "Bridge2P3"
1 "Bridge2P2"
1 ",e$,g$,e$,g$,e$,g$,"
1 ","Noord5","Oost 4","Zuid 5","West 4"
1 ")-tw*(e$="
1 ")+(e$(tw)
1 " verloren";
1 " ";j$(y+x,w);:
1 Pas Pas Pas 5
1 Pas Pas Pas
1 Toets A of B voor uw keuze
1 Z, S, of V?
1 1, 2 of 3?
1 C of D?
1 O
1
1
1